Private Sub Chart_MouseMove(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y As Long)

    Dim 迭 As Series, ð迭 As Series
    Dim Ʈ As Long
    Dim 迭ȣ As Long, 迭ҹȣ As Long

    ActiveChart.GetChartElement x, y, Ʈ, 迭ȣ, 迭ҹȣ

    If Ʈ = xlSeries Then

        Set ð迭 = ActiveChart.SeriesCollection(迭ȣ)

        For Each 迭 In ActiveChart.SeriesCollection

            If 迭.Name <> ð迭.Name Then

                迭.Format.Line.Weight = 2.5
                迭.HasDataLabels = False

            Else

                迭.Format.Line.Weight = 5
                迭.HasDataLabels = True
                迭.DataLabels.Position = xlLabelPositionAbove

            End If

        Next

    End If

End Sub